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COPYRIGHT (c) 1978, 1980, 1982. 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE AND cor ace 
ONLY 4 ACCORDANCE WITH THE TERMS OF SUCH Tht ne ND WITH 


N OR ANY OTHE 
COPIES THEREOF 4 NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AK 
vaanstchaten O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREE 
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;++ 
; FACILITY: DR32 SUPPORT ROUTINES 


; ABSTRACT: 
; Provide high-level language interface to DR32 


; ENVIRONMENT: USER MODE LIBRARY ROUTINES 
; MODIFIED BY: 


; V03-003 TCM0004 Trudy C. Matthews 30-Mar-1983 

; Correct two bugs introduced in TCMO003 that could cause 

3 user-specified action routines to not be called. 

; v03-002 TCM0003 rudy C. Matthews 18-Jun-1982 

$ Change XFSSTARTDEV $0 that it sets the GO bit before exiting. 
: Correct two problems in XFSPKTBLD -- (1) if an action routine 
; _ not epee? Free. the packet would always be inserted at pe 
; tail of the queue (even if MODES specified “‘insert at head'’) 


(2) if MODES was defaulted and an action routine specified, 
an access violation would occur. 


v03-001 SPL. 5001 Steven B. Lionel 30-Mar-1982 
change module name to XFSDRSUP. Make PRE_AST, GET_ADOR 
and DEVICE_FAB local symbols. 


v02-004 PRDO006 aul R. DeStefan 11-Mar-1982 
Correct symbols ibscet VM if ALOCCMD and LIBSFREE_VM in 


SOOOCCOCOOCOOCOCOCOSCOOOC COCO OCS OOOCC COCO OO OOOO OOOOOOOOOOOOOoOoOOoOO 
NAME WN 0 OD NAME WIN 0 OD NAUE WN O OON FUE WN 0 OONOAU EW OOONOU Ew 
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0 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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: 
00 6 
000 68 
000 69 


XFSCLEANUP. Symbols were not position independent. 


vO2-003 TCM0002 Trudy C. Matthews 66-Jul-1981 
n XFSGETPKT, correct the instruction that stores the 
unction code in the user supplied argument to only store 
a word instead of a longword. 


v02-002 Ny ot Trudy C. Matthew 15-Jun-1981 
LOCCMD, correct Lieorithn that initializes free command 
he pointers. 
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v04-000 DECLA 


oc 


8 -SBTTL DECLARATIONS 
2 ; MACROS: 
. SSSDEF idefine status returns 

8 $XFDEF sDR32-specific definitions 
0 SSDRDEFS support routine definitions 
00 SCTXDEF ioffsets into contxt array 
00 SIODEF 310 status definitions 
Bp SSHRDEF shared status definitions 
4 smacro DEFAULT_TEST tests for defaulted FORTRAN-procedure arguments 
0 «MACRO DEFAULT_TEST ARGPOS, LABEL1, LABEL2 
s;ARGPOS contains the position of an argument in the argument List 
0 CMPL (AP), #ARGPOS arg given? 
0 BLSS LABEL1 sargument was not supplied 

TSTL <ARGPOS*4> (AP) :if address = 0 

BEQL A sargument was defaulted 


LABEL 
.ENDM DEFAULT_TEST 


smacro QRETRY executes an interlocked queue instruction and retries 
edit 


RIPIMINNINY 2 2 9 PO MF ODODODOOO0OO OOOO 0000900090009 09 09090909 SI NIN NNN 
MEAN (OOD NOAUE WIN OOD NA UE WN $9 OD NAME WW OOD NAUE WO OO NOUS Wh 


0 

0 

0 

0 

0 

° 

0 3 OPCODE = opcode name: INSQHI, INSQTI, REMQHI, REMQTI 

0 5 OPERAND1 = first operand for opcode 

0 : OPERAND2 = second operand for opcode 

0 : SUCCESS = Label to branch to if operation succeeds 

0 1 3 ERROR = Label to branch to if operation fails 

0 1 ;OUTPUTS: 

: : RO is destroyed 

0 1 «MACRO QRETRY OPCODE,OPERAND1,OPERAND2,SUCCESS,ERROR, ?7LOOP, 270K 
0 1 CLRL RO 

0 106 LOOP: 

0 1 OPCODE OPERAND1, OPERAND2 Cent ae 

0 1 -1F NB SUCCESS :"C’’ bit clear <=> success 

0 1 BCC SUCCESS 

0 1 LFF 

; : BCC OK 

0 1 AOBLSS #RETRY_LIMIT, RO, LOOP ;queue is interlocked. Retry. 
000 1 IF NB ERROR , 

00 1 BRB ERRO sretry Limit exceeded and queue 
000 1 -ENDC sis still locked. Assume error. 
000 117 OK: 

000 1 -ENDM QRETRY 
0000 1 

0000 120; 

0000 121 ; REGISTER CONVENTIONS: 

Ba 122 3 R6 : address of CONTXT array 

000 1235; R? : address of current command packet 

si : 3 R10: address of command block 


Ee CR ESS EP Rs Se Ey SAD. SACRE En Rare 


== DR32_ SUPPORT 
XFS$S 


OOoOooooco Cc 
v 


pope ololololelolololojlola) 
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SoOooooooooo 


ISERIES S188) 


-SBTTL XFSSETUP 


¢eeeeeeeeeececeees See eee eee eeeaeaee 


toe 


hd 
;CONTXT ARRAY: 


31 0 


1/0 status block 


buffer size 


eer eee ewe een $ 


peewee nrweme er ne ewe nc ene wn reece scoes + 


buffer address H 


ween recente eee moe mn ee enn cee teen} 


wee ee eee eeeeeeeeeeeoeeeecoecee=} 


Sete ee eee eee eee eee eeeeoooceeoen} 


event flag # ;: 
eee eeeeeeee ee eeeeeeeeoeseeeeece=} 
ee ee tt 
See eeeeeeeeeeeeeeeeeeeeeseesesan} 
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:CTX$Q_10SB8 


:CTX$L_CONTROL 

:CTX$SL_BYTECNT | 
:CTXSL_BFRVA 

: CTXSL_MEMCNT 
:CTX$L_DDICNT 
:CTX$L_DSL 
:CTXSL_CMDSIZ 
:CTX$L_CMDBLK 
:CTX$SL_DATASIZ 
: CTX$L_DATABLK 
:CTX$L_PRE_AST 
:CTX$L_PRE_PARM 
:CTX$B_DATART CTX$B_FLAGS 
:CTX$L_GOBITADR 
: CTX$W_NUMBUF 
:CTX$L_PKTAST 
:CTX$SL_ASTPARM 
:CTXSL_BUF SIZ 
:CTXS$L_IDEVMSG 
:CTXS$L_ILOGMSG 
:CTX$W_ILOGSIZ :CTXSW_IDEVSIZ 
:CTXSL_FREELIST 


:CTX$B_CMDTBL | 


:CTX$W_EFN 


note: CONTXT offsets are defined in SCTXDEF 


C 4 
== DR32 SUPPORT ROUTINES 16-SEP-1984 01:45:1 AX/VMS Macro V04~-00 Page 5 
XFSSETUP ett $4 393503 tOsuP.sRe DRSUP.MAR; 1 ° (4) 
09 ! ; ; FUNCTIONAL DESCRIPTION: 
0 185 ; (1) allocates command area 
00 1 $ 3 (2) allocates and initializes hardware queue headers 
38 187 ; (3) initializes free command memory List 
a9 } § 3 (4) initializes many fields in tne CONTXT array 
4 4 ; CALLING SEQUENCE: 
000 192; CALLS/G XFSSETUP (contxt, barray, bufsiz, numbuf, Cidevmsg], - 
00 198 ; Fidevs! ° Cilogmsg). tilogsizi, Cemds iz), ° 
88 139 3 status]) 
4 196 ; INPUT PARAMETERS: 
000 197 ; offsets to AP: ; 
00000004 0000 198 CONTXT = 4 za 50-word array that contains context and 
444 199 status information concerning the current 
000 00 itransfer 
00000008 0000 01 BARRAY = 8 sbase address of data area 
0000000C 0000 8 BUFSIZ = 12 zthe size in bytes of each buffer in BARRAY 
00000010 0000 0 NUMBUF = 16 the number of buffers in BARRAY 
00000014 0000 04 IDEVMSG = 20 jarray to receive input device messages 
00000018 0000 05 IDEVSIZ = 24 ssize in bytes of device message array 
0000001C 0000 06 ILOGMSG = 28 jarray to receive input log messages 
00000020 0000 07 ILOGSIZ =_32 ssize in bytes of log mesenger array 
00000024 4404 $08 CMDSIZ = 36 :size of command area to allocate 
44 310 ; OUTPUT PARAMETERS: 
00000028 444 $1§ STATUS = 40 za longword array to receive status of call 
0000 214 ; IMPLICIT OUTPUTS: 
0000 215; : 
0000 51$ Z fields in CONTXT: CTX$L_BUFSIZ 
0000 217: CTX$L~CMDBLK 
0000 218; CTX$L-CMDSIZ 
0000 219; CTX$L_DATABLK 
0000 220; CTX$L-DATASIZ 
000 221 ; CTX$L_IDEVMSG 
000 $3¢ ; CTX$SWIIDEVSIZ 
0000 2203; CTX$L-ILOGMSG 
0000 24 ; CTX$W_ILOGSIZ 
si “> 3 CTX$W_NUMBUF 
0000 2 ; COMPLETION CODES: 
0000 7 3 (1) SS$_NORMAL normal successful completion 
0000 EE: (2) SS$_BADPARAM invalid input argument 
0000 13 (3) error status returns from LIBSGET_VM 
000 : ; SIDE EFFECTS: 
000 4; 
4 +2 NONE 
0 § ; 
00 _ 


dD 4 | 
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ft ILOGMSG defaulted, aSte Stmpsiz TEST 
MOVL —- ILOGMSG(AP), cTx$L. 1LOGMSG G«R RO) 
addr of micah array 


DEFAULT_TEST — <ILOGSIZ/4>, cmpgit> oTEST. CMDS12_T 
ILOGSI2 “defaulted, goto CMDSIZ_TEST 
MOVW @ILOGSIZ(AP), cTksw_ itoesi7( R6) 
sstore size of ILOGSI2Z array 


54 A6 «=61C AC DO 


58 A6 «620 BC OBO 


‘eeese 
| 
0000 p i -PSECT _XFSCODE SHR ,PIC,EXE,NOWRT 
| 004C 00 $) -ENTRY XFSSETUP “M<R2,R3,R6> 
09 “8 store input parameters in CONTXT array 
50 1G 3¢ 09 3 MOVZWL #SSS$_BADPARAM, RO a RO for possible error 
return 
04 gf D1 000 “3 CMPL (AP), #4 34 obligatory parameters 
0 18 0008 rt BGEQ 10$ 
008C 31 OQOOA 4 BRwW FINISH ineeded parameter defaulted 
56 04 AC 00 aoit 3 10$: MOVL CONTXT(AP), R6 iR6 pb address of CONTXT 
2C A6 08 AC DO 0011 2¢ MOVL BARRAY(AP), CTX$L DATABLE CRE)” zsaddress of buf array 
4046 108C BO 0016 25 MOVW § @NUMBUF(APS, CTXS$Q_NUMBUF(R6) number of buffers 
4C A6 = OOC:«CBC dO Ba i8 22 MOVL Q@BUFSIZ(AP), CTX$L— _BUFSIZ(R6) isize of each buffer 
+ 2$ sdetermine size of data area, and store in CONTXT 
52 40 A6 3€ 0020 258 MOVZWL CTX$W_NUMBUF(R6), R2 zR2 <- # of buffers in BARRAY 
28 AG «604C AB CSS CS 0024 259 MULL3 R zsnumber of buffers xX 
O0¢A 360 cTx$i_ _BUFSIZ(R6) tsize of each buffer 
O0¢A 361 CTX$L “DATASIZ(ROS 
BaS A 268 zstore addresses and sizes of arrays to receive input messages 
Bash 65 MSG_ARRAYS: 
50 A6 = 7C OO2A 66 CLRQ CTXSL_IDEVMSG(R6) izero addresses of device and 
002D 67 ;log message arrays 
58 AG 4 it} 508 CLRL CTX$W_ILOGSIZ(R6) ;assume sizes of device and 
0030 69 z;log message arrays = 0 
0030 270 
0030 71 DEFAULT_TEST <IDEVMSG/4>, 10$, 10$ 
003A % f IDEVMSG defaulted, goto 10$ 
50 A6 «414 AC DO OO3A 27 MOVL = IDEVMSG(AP), crx$L.. IDEVMSG(R6) 
OO3F 274 store addr of IDEVMSG array 
003F 275 DEFAULT_TEST ERE VSLEI 10s. 
0049 276 pevgiz Ey goto 10$ 
SA A6 18 BC BO 0049 77 MOVW @IDEVSIZ(AP), crksu. IDEVSIZ« o- 
004E 78 size ft jogvesé array 
004 +44 10$: DEFAULT_TEST <ILOGMSG/4>, cmstz. TEST. CMDSIZ_T 
Hf 
84 
85 
86 
87 
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9 CMDSIZ_TEST: 
Q ;determine size of command area , and store in CONTXT 


3 


5 


DEFAULT_TEST 


ADDL3 


—E 4 


#24, QCMDSIZ(AP), CTXSL_CMDSIZ(R6) 


ALOC 


8 8 


1: 
1: 


45:1 AX/VMS Macro V04-00 
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<CMDSIZ/4>, COMSIZ, COMSIZ 


was size of command block given 
sif not, goto COMSIZ 


iyes, add space 
:for queue headers, 
sand store in CONTXT 


default command size = NUMBUF * (size of fixed portion of command 
packet + idevsiz + ilogsiz) * arbitrary constant ( originally = 3) 


COMSIZ: 


R3 

CTX$W_IDEVSIZ(R 
CTX$W"ILOGSIZ(R 
#XFSB~PKT DEVS 


6) 
6) 
G, 
MD 
i. 


*R 
SI 
CM 


R 
3 
Z 
D 


3 


(R 
SI 


sintialize the addr of the addr of the 


;XFSPKTBLD ma 


ALOC: 


MOVAL 


6) 
z¢ 


zthis sum will be <= 256 

zadd in fixed portion of packet 
;R2 = NUMBUF 

R6) imultiply by constant 


o bit in CONTXT now so that 


, be called before XFSSTARIDEV. It will be initialized 
gagain in XFSSTARTDEV; this is a dummy initialization. 


<CTX$SB_CMDTBL + XF$B_CMT_FLAGS>(R6) ,- srequest go bit 


<CTX$B-CMDTBL + XFSLICMT-GBITAD>(R65 = ad 


sALL input parameters have been stored. 


;command area. 


FINISH: 


BSBB 


DEFAULT_TEST 
MOVL 
RET 


ALOCCMD 


RO, @STATUS(AP) 


<STATUS/4>, END, END 


r in nere 


Now allocate and initialize 


sallocate command area 
zand initialize queue heads 
istatus returned in RO 


jwas status arg given? 
:if not, branch to END 
syes, store status return 
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SBTTL ALOCCMD == ALLOCATE COMMAND AREA 
AND INITIALIZE HARDWARE QUEUES 


ae 
FUNCTIONAL DESCRIPTION: 


This routine is called by XFSSETUP to grettes allocate the 
yacewel memory that will be used as the command block eyring : 
DR32 data transfer. If successful, it initializes the firs 
geetvery as headers of the INPUT, TERMINATION, and FREE queues. 
shen this routine ake command memory looks like: 
gen see ewe wee mewn eam ema em + 
' INPTQ FLINK {| :CMDSL_INPTQ 
teow om er cot eee eee resem eee + 
' INPTQ BLINK H 
q wpeoweeeeeeeoeces ee ee Se 
: TERMQ FLINK | :CMDSL_TERMQ 
tera e seme c eee mn arene cman + 
‘ TERMQ BLINK ' 
tere mew esr recone eee emer ee + 
H FREEQ FLINK H :CMDSL_FREEQ 
teen enw cence eee eee mee ene 
H FREEQ BLINK : 
H 0 i :first lLongword of command space 
meee meer ee ete mane n meron es 
:{ size of packet memory | 
ee 
memory available to | 
build command packets: 
junanemenusammoeneaines + 
CALLING SEQUENCE: 
BSBB ALOCCMD 


SBW ALOCCMD 
called by XFSSETUP 
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INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


address of CONTXT att, B. 
CONTXT fields used as AA. CTXSL_CMDSIZ 


OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

fields in CONTXT: 

SUidt-Sestttas 2250S St Picesotsl conmet $e iss 

COMPLETION CODES: 

RO contains status of call to LIBSGET_VM 
SIDE EFFECTS: 

NONE 
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ALOCCMD == ALLOCATE COMMAND AREA =SEP=1 IOSUP.SRCJDRSUP.MAR; 1 (1 
A 4 
As 4 5 ALOCCMD: 
5A DD we ? 3 PUSHL R10 save register 
a rh ;round size of command area up to next page boundary before allocating 
20 A6 4 OOOOOIFF BF CO pas tl¢ ADDL2 #PAGEMASK, CTXSL_CMDSIZ(R6) srerenee eos past 
Ps x 
20 AG «OCOOTFF BF 0 —s AA—s« OB 414 BICW #PAGEMASK, CTXSL_CMDSIZ(R6) i truncate back to 
$8 212 imultuple 
O08 ‘i? zallocate command area 
24 AG «ODF «(008 119 PUSHAL CTXS$L_CMDBLK(R6) receives address of 
00BB 420 sallocated area 
20 AG «6ODF «C(00BB «421 PUSHAL CTX$L_CMDSIZ(R6) :size to allocate 
00000000 ' GF 9¢ FB pee 4 ¢ CALLS #2, G*LIBSGET_VM iget virtual memory 
1A 5 E9 Bae : 3 BLBC RO, 10$ zerror check 
a0¢8 : 5 sinitialize hardware queues | 
5A 24 A6 DO Boce ? i MOVL CTXSL_CMDBLK(R6), R10 eSiv peters Sp beginning 
GA 7¢ OCC 4¢9 CLRQ  — CMD$SL_INPTQ(R10) initialize queue head | 
08 AA 7C OOCE 430 CLRQ CMD$L_TERMQ(R10) sinitialize | 
10 AA 7C ed oe) CLRQ CMDSL_FREEQ(R10) sinitialize queue head | 
st 638 sinitialize List of free memory chunks 
18 AA DE O0D4 435 MOVAL <CMDSL_FREEQ+8>(R10),- ;FREELIST points to 
5C A6 itd +38 CTXSL_FPREELIST(R6) ifirst available blk of memory 
00D9 438 ;The amount of command block memory available for building packets = 
14 rh z;the size of command area - space reserved for queue heads. 
1C AA 20 A6 18 C3 OOD9 441 SUBL3 #24,CTX$L_CMDSIZ(R6), - ;store size of initially 
OODF rei <CMOSL_FREEQ+12>(R10) available command memory. 
5C B6 D4 OODF Gu CLRL @CTX$L_FREELIST(R6) sinitialize free block pointer 
0400 8F BA OOE2 444 108: POPR #*M<R10> 
05 QOO0E6 445 RSB 


——— 


XFSOR =~ DR 
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pm -SBTTL XFSSTARTDEV <= START DEVICE 
; FUNCTIONAL DESCRIPTION: 
(1) 44 > command table required by Startdata Q10 
(¢ assign a channel to the device 
) issue the Startdata Q10 
; CALLING SEQUENCE: 


; CALLS/G XFSSTARTDEV (CONTXT, DEVNAM, CPKTAST], CASTPARM], 


= 
5 ee 
~N 


MEW SO OONA UE WIN SO OD NAMES WN (OOO NAUE WN OOONOULS Wn 0O0@ 


CEFN], CMODESS, CDATART]. CSTATUS)) 

: INPUT PARAMETERS: | 

; offsets to AP: 
CONTXT 


00000004 TXT = 4 saddress of CONTXT array 
00000008 DEVNAM = 8 character string; device name of DR32 
0000000¢ PKTAST = 12 saddress of packet AST 
00000010 ASTPARM = 16 saddress of AST parameter 
00000014 EFN = 20 sevent flag associated with transfer 
00000018 MODES = 24 contains several switches 
0000001C DATART = 28 data rate of transfer 
> IMPLICIT INPUTS: 
ifields in the CONTXT array: 
; CTX$L_CMDBLK 
; CTX$L_CMDS1Z 
; CTX$L_DATABLK 
: CTXSL_DATASIZ 
> OUTPUT PARAMETERS: 
‘ 
00000020 STATUS = 32 soptional status return 


3 
i 
0 
0 
0 
0 
0 
" 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
6 
0 


IMPLICIT OUTPUTS: | 
various fields in the CONTXT array 

COMPLETION CODES: 
(1) SS$_NORMAL normal successful completion | 


(2) SS$"BADPARAM needed parameter defaulted 
(3) error returns from: 
SCREATE 


Spel Dele ek eke ade ad De Dek Bed il I-Ie Den tee a eh ae eke ek el tal al Dal tal tak tal te tal tak ak al ak ek ek ek tak ek J Je ek la 
OOO OOO 000000 09 09 0909 09 09 09 SIN NI NSIS NSN SO AA AAA AAAA MIMI 


SIDE EFFECTS: 
NONE 


7 > 
ono 
co~ 


SOSCOCOCSCOCSOOCO COCO OSOOSOOSOOSOOOCOSOSOOOOOOOOCOOCOOOCOOOOOOOOOCOOOOOO ZT 
MMMM MMMM MMMM MMM MMM MMMM Mmmm nmMmmmMmmMm mm mMmmmmMmmmmmmmmMmmrmrnrrnicncvncviecyy 
NE 0 
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5 
D 
7 1 
.PSECT _XFSDATA 
DEVICE_FAB: 
7 
9 
9 
D 
D 
D 


mc 


$F AB FOP = UFO 
-PSECT 


MOVL 


CODE 
af SSTARTDEV 


CONTXTCAP), 


EX 


R6 
p++ 


size of commend block 


Am<R2, 


Bs 


NOEXE 


1:45:1 
1:32:0 


AX/VMS Macro V04-00 
IOSUP.SRCJDRSUP.MAR; 1 


sUser File Open option 


yout ap. PIC 
a <= addr of CONTXT 


:Two of the device-dependent parameters T. the Startdata Q10 are the 
taddress and the size of a ‘command table 
: The ns of this command table is 


:XFSL_CMT_CBLKSIZ 
:XFSL_CMT_CBLKAD 
:XFSL_CMT_BBLKSIZ 


; (offset: CTX$B_CMDTBL). 
yinitialized by RFSSETUP. 


BRR EES EWWWWWWWI IIR Ronononononononons OOOO 
AUEWR @OODNAUEWN 2 OODNOAUEWN CO DONOUE WO DONE 


DULL LV DV LV LVPVLIVPUPUDIUDV SUSU LVDS SUVS USSU STIS ISTSISIIIISI 


B_CMDTBL + XFSL_CMT_PASTAD>(R6) 
ST(R 


:XF$L_CMT_BBLKAD 
:XFSL_CMT_PASTAD 
:XFSL_CMT_PASTPM 
:XF$B_CMT_RATE 

:XF$L_CMT_GBITAD 


datart! :XF$B_CMT_FLAGS 


Se OM Ee eH 


iaddr to receive addr of go bit H 


zThis command table is embedded in the CONTXT array 


The first 4 longwords have already been 


Now build the remainder of the table. 


;zero AST fields 


™X 
CLRQ CTXSL_PKTA 
CLRB <CTX$6 gro ret + ihe owt -FLAGS>(R6) :flags default 
MOVZBW #EFN_DEF, CTXS$W_EFN assume event flag # defaulted 
OVAL <CTX$B_ Capt BL + sie “CMT: *GBITAD>( R6),- equest go bit 
CTXS$B_CMDTBL + XFSL-CMT_GBITAD>(R6) ae r in here 


Page 


My 


KF SOR =~ DR 
voo-000" xFSST 


mc 
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petoratnn if an AST routine is supplied. If so, store in the 

icommand table the address of a pre~ AST routine, which is part of the 
sSsupport package. This pre= AST routine will take the AST, and after 
zsome checks call the user AST routine. The AST parameter in the 
scommand table will point to 2 longwords elsewhere in the CONTXT 
carver. Uren will contain the address of the user AST routine and its 
; parame er. 


BKTAST LTEST: 
DEFAULT_TEST <PKTAST/4>, ASSIGN 3fhN. EFN_TEST 
MOVAL he. f gf's AST routine address in 


Q00001D1°EF ODE 
0 A6 8 CHOTBL . XFSL _CMT “Pas rhb$ no) -ecqumand table 


34 A6 «20446 AGO MOVAL etree BRK TA ipre= m is a pointer to 
x$6 EMD TDL” + KFSL_ CMT_ ASTPASCRED suet AST address 
44 A6 OC AC DO MOVL SETA Fput user AST addr into CONTXT 


DEFAULT_TEST ~ <SASTPARM/4>, ASSIGN_CHN, EFN_TEST 
MOVL “@ASTPARM(AP), yput user AST parm in CONTXT 
CTX$L “ASTPARM(R6) 


STTAP) | 

CTX$L_ PKTAST (R6) 

48 A6 4 ©10 BC DO | 
| 


EFN_TEST: 
DEFAULT TEST <EFN/4>, ASS 
MOVW “@EFN(AP), CTXSW. EFNC 


IGN_CHN, MODE_TEST 
R6)~:put event flag # in CONTXT 


MODE_TEST: 
DEFAULT_TEST  <MODES/4>, ASSIGN_ CHN, LDATART TEST | 
18 BC 90 MOVB “@MODES(AP) pus aqs into command table 
<CTX$B_ CMDTBL + XF$B_CMT Ut ss ehe 
DATART_TEST: 
DEFAULT_TEST | <DATART/4>, ASSIGN, CHN ASSIGN_CHN 


$a args, goto ASSIGN_CHN 
MOVB @DATART(AP), ‘Rat t data rate into cmd table 
8 CHDTEL + XFSR_CMT_RATE>(R6) 


38 AG «6 1C BC O90 aDATAR | 
BISB #XFSM_CMT_SETRTE set data rate bit in FLAGS var 
| 


39 a6 «O01Sts«éBB 
<CTX$B_ CHOTBLXFSB. CMT _FLAGS> (RO) sof cmd table 


‘The command table is , : mplet 
; Assign a channel to the DR32. The RMS S$CREATE service with the User | 

File Open option in the FOP field of the FAB is nothing more than a 
iglorified assign channel, but it buys you multiple leveis of loicat 
; Name translation. 


3 
A 
0 
0 
0 
0 
0 
0 
0 
0 
0 
; 
42 A6 14 BC 80 e 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 : : ; 
8 sinitialize the FAB with the device name supplied by the caller 
0 
0 


OD NA NE WN @§ O OD NAME WIN OC OOD NAME WIN 0 ODO NAUSEA SOO ODNOAOUE WOO 


WI 
WO OOOO OOO 0000000 0900 09 09 09 09 09 SINS NS NSN NS SP PAA AA AAA AMM 


A aa a al ab ab sb Ab Ah Ab Ab Ab Ah Ab Ab Ab Ab db beh hb db ab sb sb dh ah Ab sh dh dh sb sh sh sh sh sh ab dl 


ASSIGN_CHN: | 
DEFAULT_TEST A la tata BADPARM, BADPARM 
MOVAL “DEVICE_FAB, R3 3R3 <- addr of FAB 


53 OO000000'EF ODE 
52 08 AC MOVL DEVNAMTAP), R2 3R2 <- addr of devnam descriptor 


7 
? 
7? 
7 
7 
? 
? 
7 
? 
7 
i 
7 
7 
7? 
7 
7? 
7 
8 
8 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
B 
B 
8 
B 
8 
8 
B 
C 
C 
C 
D 
D 
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;the c 


BLBC 


BRB 
BADPARM: 


S&P AANA NANI POPONIPIPIPONINIDY 2 OO SS SS OOQDOOOOOOD 
nm 
“+ 
Pa 


PRA AAAAAAA AAAS AAA AAA AAA AAASA AA AA AAAS A AAA AAAO 
MR OOONAUNES WIN — O ODNAMN EWN OOO NOAUN EW SOO ONOUS wr 


+ 
size of char string array i: 


Hames ee enw een ese nse enorme eos + 


: address of character string |: 


Pew o wee oe newest ecoeeerene meeeeocen + 


zIf the statically declared size nf the arra 
estring. the atrine will be padded with blanks. Fin 
aracter strin 


MOVL 


MOVB 
SCREATE 
BLBC 


MOVE 


MOVZWL #SS$_BADPARAM, RO 
DEFAULT_TEST 
MOVL 
END_STARTDEV: 
RET 


"SrSEp=1986 01:92:08 LTOsUPs sme SDRSUP-MAR 1 


344 
The address of the “ORTRAN character string descriptor is in R2. 
The descriptor look Like: 


:(R2) 


is larger than the actual 
the true size of 
g before assigning the channel. 


4(R2), FABSL_FNA(R3) ;move addr of char string to FAB 
#°040, (R2), a@FABSL_FNA(R3) ;find first blank 
FABSL_FNA(RS), R1 7R1 <= Length of char wr tes 

R1, FABSB_FNS(R3) move size of string into FAB 
FAB = DEVICE_FAB returns channel # in STV field 
RO, STAT store error status 


;issue Q10 specifying evf to be set on every packet interrupt 
10$: $Q10_S EFN = CTX$W_EFN(R6), - 
CHAN BSC_ST 


= V(R3), = 
FUNC = #10$_STARTDATA! IOSM_SETEVF, - 
I1O0SB = CTX$0_JOSB(R6), - salso embedded in CONTXT 
ASTADR = OCT sal PRE_AST(R6), - ;packet AST address 
Pi = CTX$B_CMDTBL(R6), - 
P2 = #XFSK_CMT_LENGTH ;size of command table 
RO,STAT sbranch if Q10 was unsuccessful 
#1,a<CTX$B_CMDTBL+XFSL_CMT_GBITAD>(R6) 


sthere are packets alread 
STAT 3RO contains status of Q10 call 


saddr of command table 


zneeded argument defaulted 


<STATUS/4>, END_STARTDEV, END_STARTDEV 
RO, @STATUS(AP) zstore status 


~ 
—— 
as 
et 


zset GO bit in case 
on INPUTQ 
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AS 
101 644 -SBTTL PRE_AST <= pre - user AST routine 
101 645 ;4+ . 4 
131 046 ; FUNCTIONAL DESCRIPTION: 
101 es $ Check if the AST routine is interrupting critical code in the 
101 649; main routine; that is, if it could leave the List of free 
101 650; memory in an invalid state. 
101 651; If so, turn off AST's, reschedule this AST, and return. 
1 636 3 If not, call the user - specified AST routine. 
101 654 ; CALLING SEQUENCE: 
1D1 92? 3 
11 b28 g CALLS/G PRE_AST (ASTPARM) 
tte 658 ; INPUT PARAMETERS: 
01D1 659; 
01D1 660 ; ASTPARM points to two consecutive longwords containing 
Rips 03 3 the address of the user's AST and the user ASTPARM. 
0101 6635 ; IMPLICIT INPUTS: 
01D1 664 ; 
01D1 665; NONE 
01D1 666; 
01D1 667 ; OUTPUT PARAMETERS: 
01D1 668 ; 
01D1 6469; NONE 
0101 670; 
01D1 671 ; IMPLICIT OUTPUTS: 
01D1 ore . 
01D1 673; NONE 
01D1 674; 
01D1 675 ; COMPLETION CODES: 
01D1 676; 
01D1 677; NONE 
01D1 678; 
01D1 679 ; SIDE EFFECTS: 
01D1 680; 
01D1 681; NONE 
01D1 ons 3 
01D1 683 ;-- 
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1D1 685 PRE_AST: 
na * | 101 6 § «WORD 0 
51 O04 aC 0D 103 6 MOVL 4(AP), R1 3R1 <= addr of quadword 
100 2 3 :containing addr of PKTAST 
yan 
15 51 00 £4 Q1D7 690 BBSC MCRITICAL_BIT, RI, = sdetermine if snpereupt ing 
108 o3! ee IMMEDIATE “EXIT tcritical code; if so, exit 
108 £35 sall OK; call user AST-level routine 
1DB 694 ;-- 
A 10B 695 
14 AC 9D OQ1DB $36 PUSHL eo can? ssaved PSL 
10 AC 0D 1DE 6 PUSHL 6 (AP) ssaved PC 
OC AC ODD RIE 698 PUSHL 12(AP) saved R1 
08 AC DD O1E4 344 PUSHL 8(AP) zsaved RO 
04 Al DD O1E7 00 PUSHL 4(R1) suser AST-level parameter 
00 B81 OS FB O1EA 701 CALLS #5, a(R1) scall user AST-level routine 
17 «-11”—=CO*OO1EE ie BRB END_PRE_AST 
O1FO 703 ;++ 
O1FO 704 :Come here if interrupted main routine during critical code. 
01FO 705 sDisable AST's and reschedule this AST. 
01FO 706 :The main Level routine will re-enable AST's when it exits the 
O1FO 707 Sepittenh section of code. 
O1FO 708 ;-=- 
O1FO 709 IMMEDIATE EXIT: 
01FO 710 SSETAST_S #0 idisable AST's 
O1F9 = 711 SDCLAST_S PRE_AST, R1 reschedule this AST 
0207 ar 
0207 713 END_PRE_AST: 
04 0207 714 RET 


8 5 
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1g .SBTTL XFSPKTBLD 
18 ; FUNCTIONAL DESCRIPTION: 
720 : (1) finds # of bytes needed for command pack 
721; (¢ searches freelist to find space for coches and allocates it 
7 § : (3) builds command packet 
723 ; (4) puts it on input queue 
4 : : (5) sets ‘go’ bit 
0 726 : format of a command packet: 
08 7 5 i 31 7 
728 ; aaa ated eoceccoo-+ 
4 8 4 ; H self - relative forward Link : 
0 0 , 1 ; | self - relative backward Link : 
0 8 4 : ipktctl i tcmdctl iloglen imsglen ' (see below) 
0208 135 i {byte count 1 EXPSL_PKT_BFRSIZ 
8 4 ; H virtual address of buffer : :XFSL_PKT_BFRADR 
8 a8 733 : H residual memory byte count ' :XFSL_PKT_RMBCNT 
0208 oe) ; i residual DDI byte count H :XFSL_PKT_RDBCNT 
0208 743 : 1__DR32_Status Longword (DSL) 1 :XFSL_PKT_DSL 
0208 745: ! DR = device message ‘ :XFSB_PKT_DEVMSG 
ete: od 
0208 748; H log area : 
8 sell AB 
0208 231 ; 1 __address of ACTION routine 
0208 538 : ! address of ACTION parameter | 
Ba fer apices a ere 
08 756: The log area and ACTION fields have no symbolic offset because 
0 8 for é the length of the device message field is variable. The third 
0 £38 3 Longword of the command packet looks Like this: 
aH J 
3 oe ; H length of device message : :XF$B_PKT_MSGLEN 
020 Pee : H Length of log area i :XF$B_PKT_LOGLEN 
° o ; i command control (function) i :XFSB_PKT_CMDCTL 
$3 768 : { packet control byte {| ¢XFSB_PKT_PKTCTL 
769 ; tuocccenccecceecccesecesccocece + 


3 
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7) : CALLING SEQUENCE: 
5g : CALLS/G XFSPKTBLD (contxt, func bg sid 4 3 Cdevmsg), 
774 ; faevstes tb 2 modes], Caction], 
ae ; actparm), (status) 
re > INPUT PARAMETERS: 
0 78 toffsets to AP 
00000004 781 CONTXT = 4 context orray 
454844 8 7 ¢ FUNC = 8 3a word containing a legal DR function 
000000C 7 INDEX = 12 zythe index of a buffer in BARRAY 
4 4 84 8 784 DIFSIZE = 16 alternate byte count 
4d 785 DEVMSG = $0 slocation of a device message 
0000018 0 786 DEVSIZ = 24 size of device message in bytes 
000001C 0 787 LOGSIZ = 28 samt of space to reserve for log msg 
494 t 08 788 MODES = 3 flags and control bits to go in pk 
00000024 0 789 ACTION = 36 zaddress of an ACTION routine 
00000028 8 8 ja ACTPARM = 40 saddress of ACTION routine parameter 
0 08 198 : OUTPUT PARAMETERS: 
0000002C + oe r STATUS = 44 soptional status returns (see below) 
0208 796 : IMPLICIT OUTPUTS: 
0208 797 ; 
0208 798 ; NONE 
0208 799; 
0208 800 ; COMPLETION CODES: 
bs 08 801 ; | 
0208 o06 ; (1) SS$_NORMAL normal successful completion 
0208 803 ; it S$S$_BADPARAM input parameter error 
8508 804 ; (3) SS$_BADQUEUEHDR INPUT queue interlock timeout 
0 + 805 ; (4) SS$_INSFMEM not enough space to build packet 
T34 ane ; (5) SHRS_NOCMDMEM command memory not allocated 
0208 808 ; SIDE EFFECTS: 
0208 809 ; 
0208 810; NONE 
0208 811; 
0208 812 ;-- 
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~ENTRY XFSPKTBLD “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 


3a command packet is divided into distinct areas 
3 1. hardware persian 

3 a. fixed length 

H b. variable length 

5 . software portion 


z;both the hardware and the software portions must be allocated command 
space; however gnly the size of the hardware portion will be made 
tknown to the DR32 hardware 


jthe gejor ity of packet information is contained in the hardware-fixed 
sportion of the command packet. The hardware-variable portion has two 
soptional yar ee ae fields -- the device message field 

and the log message field. These fields can be from 0 - 

soysees however, they must be an integer number of lLongwords. 

ithe software portion of the command packet contains the address of the 
sACTION routine(if specified) and the address of its parameter 

sACTPARM (if specified) 


4 
0 

4 

é 

8 

9 

0 

3 

6 ;in this section of code: 
i ; R2 will accumulate the total # of bytes for the command packet 
9 

0 

4 

8 

+] 

0 

4 

é 

8 

9 

0 


scompute total size of command packet by determining lengths of 
svariable-Length and optional fields 


MOVZBL #32, R2 sinitialize R2 with # bytes in 
shardware-fixed potion of packet 
ae Re sinitialize device message and 


52. 20) 9A 


;log area sizes to 0 


f < 5 arguments, R2 contains total size of packet--goto BITS 
f DEVSIZ was defaulted, branch to LOGSIZ 
DEFAULT_TEST <DEVSIZ/4>, BITS, LOGSIZE ; 
;was size of device msg given? 
MOVZWL @DEVSIZ(AP), R3 yes. round DEVSIZ up to 
;longword bourdary 
ADDL3 M#QUADWORD_MASK, R3, RB 
BICL  #QUADWORD-MASK, RB 
CMPW R8, #256 zis size of dev msg > 256? 
BLEQU§ 10 ino, branch around error 
BRwW ERVALJO.ARG zyes, error 
10$: ADDL2 = RB, R , .; add size to byte count 
:R3 contains the actual size of the device message 
RB contains the size rounded up to the next longword boundary 


WIA NINN 4 2 2 PF HF HF HDOOOCOCOCOOSOOCOCOCOOOCO OOOO OOCOOOCOOOCOOOOCOOO 
UWNOVTDOw "DO --—— OOP rrr rrrrrrrrrrrrrrrrrrrrrrroom ow 
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6 
$4 iif <6 arguments an 5 +g R2 contains total size-- goto BITS 
64 iif boost was defaulted, branch to see if ACTION routine was given 
08 DEFAULT_TEST <LOGSIZ/4>, BITS, ACTION_ROUTINE 
4 ? jwas sizé@ of log message given? 
a Be D $3 MOVZWL @LOGSIZ(AP), R4 syes. round LOGSIZ up to 
4) 0 ; Longword boundary 
59 554 7 C1 41 71 ADDL3 #QUADWORD_MASK, R4, RI 
rH CA 45 a BICL #QUADWORD_MASK, R9 
0100 8F et 48 7 CMPW R9, #256 zis size of log msg > 256 bytes? 
B 4D 74 BLEQU GO ino, branch around error path 
o10c)=—O O51 4f 75 BR: BRW 5OVE, 18_Ans syes, error 
| 2 foe: 38 6 GO: ADDL2 R9,R ; no, add size to byte count 
025 77 ;R4 contains the actual size of the space reserved for log message 
22 4 3R9 contains the size rounded up to the next longword boundary 
0255 880 ACTION_ROUTINE: 
0255 881 DEFAULT_TEST <ACTION/4>, BITS, BITS 
O25F HY zwas ACTION routine given? 
OseF 88 zif no, branch to BITS 
52 08 CO O25F 884 ADDL2 #8, R2 zyes,add 4 bytes for ACTION addr 
026 885 : +4 bytes for ACTPARM address 
026 886 
026 887 , 
026 888 ;at this point: | 
? 44 s R2 contains the number of bytes needed for command packet 
026 891 BITS: 
56 04 AC DO 026 89 MOVL CONTXT(AP), R6 saddress of CONTXT array in R6 
5A 24 46 DO 0266 89 MOVL CTXSL_CMDBLK(R6), R10 ;R10 <= addr of command block 
03 12 O26A 894 BNEQ 2$ zis command area allocated? 
0108 31 O26C 895 BRW TRANSFER HALTED sno, return error | 
51 5C Ab OE psot 43 2$: MOVAL CTXS$L_FREELIST(R6), R1 ;R1 <= addr of freelist head 
0118 30 $593 898 BSBw XFSSALOCPKT sinput: # bytes in R2 
0276 899 5 freelist head in R1 
0276 900 soutput: addr of pkt in R1 
03 50 8 0276 901 BLBS RO, 5$ jstest low bit for error 
OOF? 1 ogi? 2 BRW NO_MEM not enough space 
57 51 00 $596 904 5$: MOVL R1, R7 spreserve addr of packet from 
544i 905 sdestruction by MOVCS 
5B 52 dO O27F 906 MOVL R2, R11 :save size of packet 
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308 snow build the packet 
a19 sfirst compute the addresses of ~ seers the variable-length fields 
91 : address of command packe 
31g | ; if actual size of device + (in bytes) 
91 : size of Sevtce msg, rounded up to next longword boundary 
914 ; 4: actual size of log area (in bytes) 
Sf 3 RO; size of log area, rounded up to next longword boundary 
08 Ay?) «365309 $17 NEXT MOVB R3, XFSB_PKT_MSGLEN(R7) ‘nto poke dev msg 
ac 
09 A7 $6 990 6 $19 MOVB XF$B_PKT LOGLEN(R7) ;put in size of 1og area 
0B a? «200—s«*90 A 920 MOVB PMODES _DEFAUCT, XFSB_PKT’PKTCTL(R7) 
bE 4 1 Fput default MODES into packet 
cas @ 3 ssize of device message is in packet now put the message itself in 
E 924 DEFAULT_TEST | <DEVMSG/4>, FUNC_FIELD, FUNC_FIELD 
$95 4 5 Tif mo dev mSg, goto FUNC_FIELD 
$598 9 5 smove device message into packet, filling with 0's to next longword 
0298 928 ;bound af 
20 a7) «©6558 )~=—(00:—Cia14 BC 53—C OL tH43 3 ; C5 R3, @DEVMSG(AP), #0, R8, XFSB_PKT_DEVMSG(R7) 
asAg 333 ;add the size of the fixed portion of the command packet to the sizes 
9gae 9 $3 sof the device and log message fields to ast the byte offset from the 
9 ab a sbeginning of the command packet to the ACTION routine field 
8 m HH FUNC_FIELD: 
58 20 A849 9E ry $37 MOVAB XFSB_PKT_DEVMSG(R8)CR9J, RB ;RB <= offset of ACTION 
8 ~ o28 sinsert fixed-length arguments in the order they were supplied 
ashe 941 DEFAULT_TEST <FUNC/4>, INV, INV 
2AF a8 if FUNC dotoulted, goto 
O2AF 94 S INVA LID_ARG 
OF O08 BC B81 O2AF 944 CMPW @FUNC(AP), #15 a inetton codes are from 0:15 
03 18 O2B3 945 BLEQU§ OK ibranch around error path 
QOA6 = 31 ose3 946 INV: BRwW INVA invalid function code 
OA A? 08 BC (90 0288 947 OK: MOVB SFUNC LAP). SVFSB. PKT _CMDCTL(R?) 
$5e0 948 insert function code 


949 high bits must be zero 


DR32 SUPPORT ROUTINES a 16-SEP-1984 01:45:18 VAX/VMS M v04-00 P | XFS 
ee oe e 3 g a ro om a e 
XFSPKTBLD -SEP-1984 $4: 93503 IOSUP.SRCJDRSUP.MAR; 1 ’ (3) v04 
BD 92) INDEX_FIELD: 
OC A?) =—7C 8 ¢ CLRQ XFSL_PKT_BFRSIZ(R7) pene aoe count & buffer addr 
C 95 o data transfer) 
C See DEFAULT_TEST <INDEX/4>,FIELDS~ * DONE. VACTION. FIELD 
CA 55 Tif <3 args “goto FIELDS_DONE 
CA 329 Selse if gorau, *ee I to ACTION_FIELD 
51 oc Bf if CA 5 MOVZWL @INDEX(AP), R1 :R1 <- index 
f 1 cf 228 BEQL INV zsindex of io" unit 
40 A6 1 BI D 95 CMPW R1, CTX$W_NUMBUF (R6) i index > number of buffers? 
pf 1A D4 =: 960 BGTRU INV es, invalid buffer index 
7 oF D 961 DESL R1 :R1 <~ buffer offset from base 
D 306 of buffer array 
51 4C AB C4 D 96 MULL2 CTXS$L_BUFSIZ(R6), R1 RI <- byte offset from base of 
8 DC 964 _ ibutfer array of this buffer 
51 2C A6 C1 dC 965 ADDL3 = CTX$L DATABLK (R6) 
0 Es 966 KFSL_PKT_BFRADR RCRD) ~_ sput buffer addr into packet 
O2E 967 DEFAULT_TEST™ 2D1FSIZE/é 10$, 10$ 
OC A? 10 BC DO O2EC 968 MOVL “@DIFSIZE(AP), XFSL_ PKT _BFRSIZ(R7) 
O2F 1 34 alternate transfer byte count 
05 11 O2F1 970 BRB ACTION FIELD 
OC A?) 4C AG DO O2F3 971 108: MOVL CTX$L BUFSIZ(R6), XFSL_PKT_BFRSIZ(R7) 
02F8 38 standard transfer byte count 
O2F8 97 
0 Fe 974 ACTION FIELD: 
? O2F 975 DEFAULT_TEST <ACTION/4>, MODES _ FIELD. MODES_FIELD 
OB A? «60460 «688 «00302 0S («976 BISB2 “#XFSM_PKT_ACTBIT, ACTION routine given’’ bit 
Ba0e 144 XF$B_PKT “PKTCTL(R7) + oy packet control field 
0306 979 ;R8 contains byte offset from beginning of command packet to ACTION routine 
0306 980 ;field of packet 
0306 981 
58 57 CO 0306 aes ADDL2 R7 ~ <- addr of ACTION field 
88 24 AC 00 0309 98 MOVL RCT TONCAP) , ( (R8)+ addr of ACTION routine into packet | 
Bay0 984 DEFAULT_TEST <ACTPARM/4>, moves” FIELD MODES. FIELD 
0317 985 :Tf ACTPARM defaulted goto MODES. FIELD | 
68 28 AC dO baie 4] MOVL ACTPARM(AP) , (R8) tput addr of ACTPARM in packe 
0318 988 MODES_FIELD: 
0318 989 DEFAULT_TEST Sstnetensdtat ames ' 4 ete DONE 
0325 990 if MODES is” pftrauited. goto 
0325 991 F IELDS_DONE 
0B A? OO 8A 83 5 99 BICB2 #MODES_DEFAULT, XFSB_PKT * PKTCTL(RZ) 
0 99 iclear out default modes settings but 
83 9 994 pore serve “action routine present'’ bit 
0B A7 +208C 88 9 995 BISB2 @MODES(AP), XFSB_PKT_PKTCTL(R?) 
b3 E 44 sets (1) interrupt control 
32E 8699 3 (2) Length error bit 
Bs E 998 : (3) pkt control bits 
: 1900 ;to user-supplied values 
: 1901 ;the packet is now completely built and ready to be put on the input queue 
20 BC 08 €1 1 08 BBC #XFSV_PKT_HT, @MODES(AP) ,- ¢ 
11 1004 INSERT_AT-TAIL tclear bit <==> tail 
1005 INSERT. AT_HEAD: 
8 $ 3R10 contains the address of the command block 
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== DR32 SUPPORT ROUTINES 16-SEP-1984 01:45:1 AX/VMS Macro V04-00 Page 23 
XFSPKTBLD g- ets 84:93:08 YOsuP sre DRSUP.MAR; 1 . (38) | 
QRETRY - 
INSQHI] (R7), CMDSL_INPTQ(R10) -;attempt insertion 
SUCCESS = SET_GO_BIT - 
iz ERROR = Q_FAICURE yexceeded retry Limit 
4 FIELDS_DONE: 
INSERT-AT_TAIL: 
QRETRY - 
INSQTI 7) crs. oy} aden -;attempt insertion at tail 
RROR = Q_FAILURE sexceeded retry Limit 
SET_GO_BIT: 


3¢ B6-OéOT 90 MOVB #1, @<CTX$B_CMDTBL+XFSL_ nel GBITAD>(R6) 
fy the Dr that there is a 


spacket on the INPUT queue 


es 7 Os MOVZWL #SS$ athe RO ssuccess status return 
eS R STORE_S branch around error paths 
INVALID_ARG: 
50 1% 3 MOVZWL #SS$_BADPARAM, RO sinput parameter error 
05 «11 DEALCOCATE 
FAILURE : 
0394 BF 3C MOVZWL #SS$_BADQUEUEHDR, RO sinterlocked queue timeout 
DEALLCCATE: i inputs to XFSSDEALOCPKT: 
5C A6 CODE MOVAL CTX$L_FREELIST(R6), R1 :R1: address of freelist head 
53 5B 00 MOVL R11, R3 3R3: size of packet in bytes 
3R7: address of packet 
61 10 BSBB he :deallocate the packet 
0c 11 "open BRB STORE_STA 
0124 8F 3C = MOVZWL #SS$_INSFMEM, RO not enough space to build pkt 
05 11 BRB STOR RE_ STAT 
TRANSFER_HALTED: 
1278 8F 3¢ STORE_STA RO ovewt. #SHRS_NOCMDMEM, RO ;command memory not allocated 


DEFAULT TEST <STATUS/4>, END_PKTBLD, END_PKTBLD 
swas STATUS” arg given? 
MOVL RO, @STATUS(AP) ;yes, store status return 
END_PKTBLD: 


2c BC) 8=650~—sé 


a ek dd 
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KF SOR == DR32 SUPPORT ROUTINES 
vOe-000 XFSSALOCPKT == ALLOCATE 


ee 91 :43:] AX/VMS Macro V04-00 
4 01:32:0 IOSUP.SRCJDRSUP.MAR; 1 


OCATE A COMMAND PACKET 


9 
9 
L 
ND RETURN ITS ADDRESS 


Wwrn—O 


* FUNCTIONAL DESCRIPTION: 
This routine is called by XFSPKTBLD to allocate a command 
packet. I: searches the List of free chunks of command 
space to find ite required amount of memory. 
C*LLING SEQUENCE: 
BSBW XFSSALOCPKT 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


R1 contains the address of a pointer to the free list 
R2 contains the number of bytes needed for packet 


OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

R1 contains the address of the allocated packet 
COMPLETION CODES: 


returned in RO : not enough memory available 
1 = sucess 


SIDE EFFECTS: 
NONE 


esleslaslaslaslasiaslasiaslasiaslaslasiaslaciesleslasiasleslasleslasiaslaslasleslesleslasleslasleslesl esl esas esl asl eal 
nn ak at tk tk kk tn ss hs hs ws ss 1 2s ss 1 ss Ss ss ss 
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== DR32 SUPPORT ROUTINES 19-$60- 1986 Ot: 5:1 
XFSSALOCPKT == AL!OCATE A COMMAND PACKET -SEP-1984 01:32:0 
—E 1091 XFSSALOCPKT:: 
BB ! 35 PUSHR #*M<R2,R3> 
90 1094 ;Since command packets must be quadword 
2 : 2 igranularity of each packet is & bytes. 
co 9 1 38 ADDL #GRANULARITY, R 
CA 93 1 a8 BICL #GRANULARITY, R 
dO 38 109 MOVL R1, RO 
99 1100 
88 99 1101 BISB2 #CRITICAL_MASK, 
3p ie 4 <CTX$B_ CHOTBL*XFSL _CMT_P 
9D 1104 ;Find a piece of memory Large enough for’ 
0390 1108 4 orca . 
DO tH 1196 10$: MOVL RO 
09 O3A0 110 MOVL RRiy” R 
1 O3A 1108 BEQL EN yo “At Be pKT 
D1 O3A5 1109 CMPL 4tRO) 
1A 0349 1110 BGTRU "66 
Q3AB 1111 
03A8 W116 sfree block found 
Q3AB 111 
13 O3AB 1114 BEQL EQUAL 
Q3AD 1115 
O3AD 1116 ;Free block is bigger than requested all 
O3AD 1117 ;asked for and pu 
O3AD 1118 
C1 Q3AD 1119 ADDL3 RO, R2, R3 
0381 1120 
D 0381 1121 MOVL (RO)+, (R3)+ 
C 0384 11 § SUBLS R2, (RO) , (R3) 
De 0388 11 MOVAL =(R3), -(RO) 
038B 1124 
0388 1125 ;Remove block from free List. 
0 1126 EQUAL: 
DO 0388 1127 MOVL (RO), yh 
9E 3BE 1128 MOVAB (RO)+, 
$c) 1129 
E4 Ci 11350 BBSC #CRITICAL 
03C6 1131 <CTX$B_C ERBTEL SXF SL _CMT Pi 
03C6 1135 EN D_AL ALOCPK 
03C6 113 SSETAST_S 
Bete 1134 
O3CF 1155 
O3CF 1136 
Bare 1137 END_ALOCPKT: 
BA O3CF 1138 POPR #*M<R2,R3> 
05 0301 1139 RSB 


AX/VMS Macro V04-00 
IOSUP.SRCJDRSUP.MAR; 1 


;allocate memory 
aligned, the allocation 


sround size up to on 
;quadword boundar 
+ Copy address of "First free 
oe address 
t bit in AST parm to indicate 

ASTPM> (RO) 

Reanaannt on cereress code"’ 
requested allocation. 


ony addr of previous free blk 
et addr of next free block 
f equal no memory available 
free block big enough? 
ino, go try next block 


zif eql free block is exact size 


ocation. Allocate what was 


remainder of block back on free List. 


3R3 <- addr of new free block 


scopy Link to new free block 
scale size of new free block 
sset link to new free block 


ink to new free block 
addr of as tecates blk 
icates succes 

; satorrupt critical code 


a TEE to END_ALOCPKT 

f so, the AST routine disabled 
F AST's and rescheduled itself,so 
upon “exiting ¢ critical code, 
zre-enable AST's 


XF SDRSUP == DR 
v04- XFS$$D 


vv 


DOD SSNS SND DDD DD ODO DT 


ate commano pack 'S-SEP-1986 O1:42:08 LiosupssmeSoRsUP-man;1 = "29" (38), 


ae -SBTTL XFSSDEALOCPKT == DEALLOCATE COMMAND PACKET 
> FUNCTIONAL DESCRIPTION: 

This routine is called by XFSGETPKT and XFSPKTBLD to return 
the any | used for a command packet. It searches the List 
of free blocks of memory to find where to return the packet 

memory, and agglomerates the returned memory with adjacent 
blocks if possible. 
CALLING SEQUENCE: 
NONE 
INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


oc 


WINAIANIAI AAAI AAA AAN AANA BT 


5-4-4444 -A-A- AAA AA AAA AA A_ ALA 


= address of allocation region Listhead 
R3 = size of blocks in bytes 
= address of block to be deallocated 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
R1, R3, and R7 are destroyed 
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WWAWAIAI AAAI AAW AAW WIN 
5h A -1- 5-1-1 -A_A_A- AAA AAA 1-1) 
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KF SDRSUP == DR32 SUPPORT ROUTINES 16-SEP-1984 01:45:1 AX/VMS Macro V04-00 Pa 7 
¥Oe-000 XFSSDEALOCPKT == DEALLOCATE COMMAND PACK ~3Eb= 1982 81:43:08 LTOSUP_ SRC DRSUP.MAR; 1 is (80). 


a 183 hate ~~ ig 
$ Dd D2 1184 PUSH R2 
23 C D4 1185 ADDL #GRANULARITY, R zsround size up to next 
7 A D7? «(11 § BICL spy tre! i, gquadverd boundary 
34 A6 1 8 A 11 B1SB #CRITICAL t bit in AST parm to indicate 
DE 11 8 <CTX$B_ CHOTBL XP SL CMT _PASTPH>(R6) ” 
43 1} 3 :entering critical code” 
43 1133 Find where in free List to return the memory. 
SS 43 1198 10$: MOVL R2 zR2 <- addr of prev free block 
51 62 b0 E1 1194 MOVL (no), R1 :R1 <= addr of next free block 
0 1 E4 1195 BEQ :if equal, end of list 
na oF E6 1138 CMPL R7, R1 tblock logically go here? 
FSO Sie 1197 BGTRU 108 ino, keep looking 
QSEB 1199 ;Determine of returned memory can be agglomerated with the block of 
pace : 8 imemory immediately meniioret it. 
67 51 00 O3EB 1 8 208: MOVL Ri, ¢ zsassume no Seg enerete 
Se: BR Pe. a ADDL3 = R7, aa -(SP) fe eee way addr of end of block 
8E 51 D1 O3F2 1204 CMPL Ri, (SP)+ send of block = next in List? 
06 12 O3F5 1205 BNEQ 30 :if neq do not agglomerate 
67 81 DO O3F7? 1206 MOVL (R1)+, (R7) smove Link to block being freed 
a. & its 344 ADDL2 (R1), R3 iR3 <- Length of new free block 
O3FD 1509 :Determine if returned memory ve hae agglomerated with the block of 
O3r0 1919 zsmemory immediately preceeding 
52 ODD O3FD isté 30$: PUSHL R2 scale end addr of preyies block 
82 57 DO OSFF 121 MOVL R7, (R2)+ assume no epotonerat ; on 
6€ 62 CO 0402 1214 ADDL2 (R2), (SP) tadd Length to block base addr 
8E 57 oI 0405 1215 CMPL R7, (SP)+ send aoe = block being freed? 
09 12 0408 1216 BNEQ 40$ ing. do not eqerenerets Pi blocks 
53 62 CO Q40A 1217 ADDL2 (R2), R3 <- size of new free block 
72 67 DO 040D isis MOVL (R7), =(R2) mde link to previous free blk 
57 52 00 b213 : Ys MOVL R2, R7 zset addr of new free block 
04 A7 «53 «©0041 13 1 40$: MOVL R3, 4(R7) sset size of free block 
09 34 A6 «6000 CES4 S417 «1 ¢ BBSC #CRITICAL_BIT, sdid AST interrupt critical code 
041C 1 <CTX$B_CMBTBL+ ixFSL_ CMT _PASTPM>(R6), 
041C 1224 END_DEALOCPKT 
041C 1225 SSETAST_S # sif so, the AST routine disabled 
Bese 1 § SAST's and rescheduled itself,so 
4 1 upon “exiting critical code, 
0425 1228 sre-enable AST 
0425 1229 
0425 1230 END_DEALOCPKT: 
04 BA 0425 1231 POPR #*M<R2> 
05 0427 1232 
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-- PUT PACKETS ON FREEQ 


16-SEP-1984 01:45:1 AX/VMS v04-00 
-SEP-1984 $4393 509 t CIDR 
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~SBTTL XFSFREESET -- PUT PACKETS ON FREEQ 


:+¢ 
; FUNCTIONAL DESCRIPTION: 


Determine che size of the packets to be released gate the FREE 


Queue accordin 
packets spec 


to input arguments. Then build the number of 
d and release them onto the FREE queue. 


CALLS/G MVSFREESES Leamtyt. A en, ig conceertd. Caction], 


; INPUT PARAMETERS: 


: CALLING SEQUENCE: 
seffecte to AP: 
CONTXT 


; IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 


:offsets to AP: 
STATUS = 24 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
S$_N 
S$- 


SIDE EFFECTS: 
NONE 


(1) $ 

(¢} SS$_ -BADQUEUEHDR 
(3) SSS$_INSFMEM 

(4) SHRS_NOCMDMEM 


Cactparm), CstatusJ) 


scontext array 

number of packets to put on FREEQ 
sinterrupt control bits to put in pkt 
taddress of ACTION routine 

saddress of ACTION parameter 


zstatus returns (see completion codes) 


normal successful completion 

INPUT queue interlock timeout 
not enough memory to build packet 
command memory is not allocated 
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== DR32 SUPPORT ROUTINES 16-SEP-1984 01:45:1 AX/VMS Macro v04-00 Page 29 
XFSFREESET == PUT PACKETS ON FREEQ mie) 7 4 43 $ 03 YTOSUP: SRCJDRSUP.MAR; 1 . (33) 
O7F 428 1 § -ENTRY XFSFREESET “M<R2,R3,R4, RS. Re. R7,R8,R9,R10> 
56 4 AC DO 042A 1 MOVL  CONTXT(AP), R6 [R6 <= addr of CONTXT 
A 4 ag D 4 3 1284 MOVL CTX$SL_CMDBLK(R6), R10 ;R10 < yo of command area 
0 1 4 1285 BNEQ FIND _SIZE if addr of command area = 0, 
434 1 § stransfer is halted 
OOAD 31 0434 1 BRW TRANS _HALTED zerror path 
437 1288 
0437 1289 
437 1290 
437 1291 ;+ 
437 1 3g ‘ ceteratee the size of the packets to be released onto the FREEQ by 
8 7 129 : Looking at the input arguments 
437 1294 ;- 
0437 1295 
0437 1296 ;find size of field to reserve for device message 
pees 1297 
0437 1298 FIND_SIZE: 
52. SA AG 3C 0437 1299 MOVZWL CTX$W IDES IE (RO) R2 ;R2 <= size of dev msg 
52. 07 CO 0438 1300 ADDL2 #QUADQOR R2 iround up to quadword bo boundary 
52 07 CA O43E 1301 BICL FOUADWORD “MASK. Rb 3R2 <= size of devmsg f 
s60Cl etséiDD Rea) 1306 ADDL2 #32, R2 RS <- size of command boas 
Rete 1308 sdetermine if ACTION routine and ACTPARM are to be put in command pkt 
57 52 00 0444 1306 MOVL R2, R7 3R7 <= offset of ACTION routine 
53 7C 0447 1307 CLRQ R sassume no ACTION or ACTPARM 
0449 1308 DEFAULT_TEST  <ACTION/4>, 5$, 5$ 
0453 1309 sif defaulted, goto 5$ - 
53 10 AC DO 0453 1310 MOVL ACTION(AP), R3 :R3 <= addr of ACTION routine 
2 CO 0457 1311 ADDL2 #8, R2 zadd sizes of ACTION and ACTPARM 
O45A 1316 to total packet size 
045A 131 DEFAULT_TEST <ACTPARM/4>, 5$, 5$ 
0464 1313 zif de toulsed, goto 5$ 
54 14 AC DO bees 1312 MOVL ACTPARM(AP), R4& ;R4 <= addr of ACTPAR 
Bees i317 ifind the interrupt control bits to be put in packet 
58 00 9A 0468 1319 5$: MOVZBL_ #INT_DEFAULT, R8 sdetoult interrupt ctrl setting 
0468 1320 DEFAULT_TEST~  <INTCTRL/4>, 10$, 10$ 
0475 1321 :if defaulted goto 10$ 
58 oc Bc 90 Bere 13 ¢ MOVB @INTCTRL(AP), RB 3R8 <- interrupt control bits 
Bee : : sfind the number of packets to be put onto the FREEQ 
55 01 QA 0479 13 $ 10$: MOVZBL #1, RS sdetautt # of pkts to put on 
047C 1398 DEFAULT_TEST <NUMPKT/4>, ANOTHER _ PKT, ANOTHER_PKT 
0486 1 $3 :if "defaulted goto ANOTHER_PKT 
55 08 BC 3C 0486 1330 MOVZWL @NUMPKT(AP), RS 7R5 <= # of pkts to put on queue 


[fem ete et SS 1 
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== DR32 SUPPORT ROUTINES 16-SEP-1984 01:45:18 VAX/VMS Macro v04-00 Page | XFS 
XFSFREESET == PUT PACKETS ON FREEQ g-3¢ P=1984 te 2:0 IOSUP.SRCJDRSUP.MAR; 1 ° af) v04 
48A 1 
re : gi ‘build a@ packet 
5C A6 " A i ; ANOTHER “ROVAL CTXSL_FREELIST(R6), RI ;R1 dd f f li 
° <- addr o ~- ~. reelist 
FEFD RF 4 ‘ 1 $ BSBW XFSSACOCPKT ; input: gtse AE 5 RD 
4 1338 st ~ i x * R1 
491 1339 treturns y+ of pkt in R1 
49 50 E9 0491 1340 BLBC RO, not enough memor fo build in 
E 494 1341 PUSHR Fo AcRT Tbe RS R4,R5> reserve from M if 
52. 00  00000200'EF 00 C 0496 1342 MOVCS #0, DUMMY_ADR, #0, R2, (AY) zero the packet | 
BA Gch } 7 POPR #°M<R1,R2,R3,R4,R5> srestore registers | 
4A2 1345 ip t address of ACTION routine and addr of ACTPARM into packet 
4A2 1 r : contains addr of ACTION routine, R4 contains addr of parameter 
Ren ! : :R7 contains offset from beginning of packet to ACTION routine field 
53 rf Q4A2 1 rt TSTL R3 addr of ACTION routine 
OB 13 Q4A4 1350 BEQL 5$ :no ACTION routine if addr = 0 
59 6147 9E Q46A6 1351 MOVAB (R1I)CR7J, RI R9 <= addr of ACTION field 
69 53 7D Q46AA 1 26 MOVQ R (R9) tput ACTION and ACTPARM in _ pk t 
OB Al 06 88 OQ4AD 135 BISB2 #xf$M_PKT_ACTBIT :set t ‘ACTION routine given'’ bit 
Ree} 1328 XF$B_PKT “PRTCTLORY) sin packet control field of 4. 
Reet 1386 zinsert interrupt control bits into packet 
06 58 FO 0481 1328 5$: INSV R8, #XFSV_PKT_INTCTL eu errupt control bits 
0B Al 02 O4B4 1359 #XESS_PKTTINTCTL, XF$B_PKY_PKTCTL(R1) ; into packet | 
bee) 136) sput size of device message into packet 
08 Al SA AG 90 or : é§ MOVB CTX$SW_IDEVSIZ(R6), XFSB_PKT_MSGLEN(R1) | 
04BC 1365 sput packet onto FREEQ | 
oaBe : 89 QRETRY 
bene 1368 INSQTI] (R1), CMDSL_FREEQ(R10) -;attempt to insert packet | 
Reee 1369 ERROR = BAD_QUEUE sexceeded retry Limit 
Rees ' 4 A_OK: spacket is on queue 
B9 55 FS bcp : 73 SOBGTR R5, ANOTHER_PKT 3g0 do another packet | 
401 1375 


C 6 XF4 
-- 16-SEP-1984 01:45: AX/VMS Macro V04-00 Page 31 
XFSTRE sé ceo UT PACRE is ON FREEQ ami oets Ti 8:43:65 IOSUP.SRCJDRSUP.MAR; 1 Shy 


‘D1 is fal the packets have been successfully inserted onto the FREEQ 
4D1 1 
: WE #SS$_NORMAL, RO success status return 
ee Ae OWE: Benge RO END FREESET” 
if s eu 
ROVZUL #SS$_BADQUEUEHDR, RO sinterlock timeout 
spit at Bt i 408 ‘ uot PER END_FREESET 
MOVZWL #SS$_INSFMEM, RO snot enough command space 
nn Be a 
4 ' 
» ® stransfer halted; command | 
50 1278 8F 3C tes ! $8 #SHRS_NOCMDMEM, RO akc ty ey phere # 
T: 
aces 3 a oa : “RO. Tastatuseahy se + ode status | 
50 DO O4F3 1395 MOVE : 
es 04 O4F7 1390 108: RET | 


E——— 
D 
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GF 1335 ~SBTTL XFSGETPKT == GET A PACKET 
4F8 1399 ; OM THE TERMINATION QUEUE 
4FB 1400 ;++ 
res 1? 1 ; FUNCIONAL DESCRIPTION: 
4F 1208 3 Attempt to remove a packet from the TERMQ. If successful, break 
4F8 1404 ;the pornet up into its various fields and return them to the caller. If 
4F 1405 ;an ACTION routine is specified in the packet, call it. Finally, return 
ra 1? $ the memory that was used to build this packet. 
rts 1° : ; CALLING SEQUENCE: 
4F 124 ; CALLS/G XFSGETPKT Kpontyt. wal stig). func], Cindex], - 
4F8 1411 ; devflagJ, ClogflagJ, Cstatus]) 
O4F 1216 3 
GF 1415 ; INPUT PARAMETERS: 
4F 14146 ; 
O4F8 1415 ;offsets to AP: 
00000004 04F 1218 CONTXT = 4 ;context array : f 
00000008 ar 1eit WAITFLG = 8 swait for event flag/immediate return 
rie 1419 ; IMPLICIT INPUTS: 
O4FB 1420 ; 
O4F 1421 ;fields in the CONTXT array: 
O4F 14 ¢ : CTX$L_DATABLK 
O4F8 1403 ; CTX$W_NUMBUF 
O4F 1426 ; CTXS$L_IDEVMSG 
O4F 1425 ; CTX$L_IDEVSIZ 
O4FB 1426 ; CTX$L_ILOGMSG 
O4F8 1427 ; CTX$L_ILOGSIZ 
gers 1428 ; 
O4F 1063 ; OUTPUT PARAMETERS: 
O4F8 1430 ; 
O4F8 1431 ;offsets to AP: 
0000000C pare 1338 FUNC = 12 ifunction specified in packet 
00000010 O4F8 143 INDEX = 16 sbuffer index specified in packet 
00000014 O4FB8 1434 DEVFLAG = 20 zset if device message in packet 
00000018 O4F8 1435 LOGFLAG = 5° zset if log message in packet 
0000001C Bere 1338 STATUS = 2 status return 
Ocr 1438 ; IMPLICIT OUTPUTS: 
O4F 1439 ; 
O4F8 1440 ;fields in the CONTXT array: 
Ree 1441 ; CTXSL_MEMCNT 
4F 1076 s CTX$L_DDICN 
O4F8 1443 ; CTX$L~ 
O4FB 1444 ; 


ek! 
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COMPLETION CODES: 


14646 ; 
1409 : 
4F es ; (1) SS$_NORMAL normal successful completion 
4FB 1449 ; (¢ $S$_BADQUEUVEHDR TERM queue interlocked timeout 
4FB 1450 ; (3) SHRS_HALT XFSCLEANUP was called 
GF 13) ; (4) SHRS_QEMPTY(=0) no packet, but transfer stiil going 
4FB 14 § : (5) SHRS_NOCMDMEM no command memory was allocated at the 
4FB 14535 ; time of the call to this routine 
4FB 1454; (6) status of ACTION routine 
4-8 1455 ; XFSGETPKT's status is an input to the ACTION routine. 
4F 1328 : The ACTION routine may overwrite the status argument 
GF 14657 ; with a status return of its own. 
4FB 14 
rt! 1835 ; SIDE EFFECTS: 
O4F 1461 ; If XFSCLEANUP was called, neither the commard packets nor the 
O4F 1006 g Queues are any longer accessible. 
O4F 1465 ; 
O4F 1464 ; 


| 
| 
| 
| 
| 
| 
| 
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YOe-000 XFSGETPKT == GET A PACKET g- “SEP-1 198 1: 93:5 IOSUP.SRCJDRSUP.MAR; 1 ve a> 
rh 1966 
OFFC rth 17g ENTRY XFSGETPKT “M<CR2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
56 04 AC 00 ire 1465 MOVL CONTXT(AP), R6 3R6 <= addr of CONTXT 
52. D4 ria 1471 CLRL R2 sassume WAITFLG defaulted 
5 ele DEFAULT_TEST <WAITFLG/4>, 10$, 10$ 
SOA 147 ide fau lt is event flag wait 
52. 08 BC 9A QSOA 1474 MOVZBL @WAITFLG(AP), R2 input to GET_ADDR 
OOEA 30 206 1475 108: BSBW GET_ADDR ireturns addr of pkt_in R7, if 
51 1026 jthere is a pkt on TERMQ 
0% 50 gS 511 147 BLBS RO, DISSECT_PKT istatus returned in RO 
OA1 1 0514 1478 BRW STORE. § TATUS serror in removing pkt 
0517 1479 i from TERMQ 
0517 1480 
rat 1481 | 
517 14 ¢ p++ 
B21? be $4 scome here if successfully removed a packet from TERMQ 
0517 1485 ;give the user as many command packet fields as he supplied variables | 
0517 14 8 zto hold 
0517 1487 ;-- 
0517 1488 BISSECT_PKT: 
0517 1489 
0517 1490 ;++ 
bait 1293 | scompute sizes of device and log message fields 
0517 1298 ithe “actual size’ of the Sovtee @ mgesege is the number of byte 
0517 1494 ;specified by the DEVSIZ uae e call to XFSPKTBLD. this is the 
0517 1495 ivalue stored in the XF$B_PKT THSGLEN field of the packet. 
0517 1496 ;the “packet size’’ of the device message refers to the fact that the 
0517 1497 idevice moste e field is O-filled to the next longword boundary in the 
0517 1498 packet. similar situation occurs with the log message field. 
gait ap 
| 
58 08 A?) 9A 0517 1501 MOVZBL XFSB_PKT_MSGLEN(R7), RB ;RB <- actual size of device msq | 
9 58 O7 C1 0518 1306 ADDL3  #QUADWORD_MASK, R8, R9 round size up to longword boun 
59 07 «CA O51F 1303 BICL | #QUADWORD "MASK, R9 3R9 <= packet size of dev msg 
5 09 A? 9A $855 1505 relay XF$B_PKT_LOGLEN(R7), R10 ;R10 <= actual size of log msg 
5B SA O07 C1 0526 1506 apo. #QUADWORD_MASK, R10, R11 ;round up to longword boundary 
58 «(07”«COCA O52, 1307 #QUADWORD-MASK, R11 :R11 <= packet size of log msg 


smove the device message field from the packet into the array IDEVMSG, 
gwhich was specified in the call to XFSSETUP 
MOVCS R8, XFSB_PKT_DEVMSG(R7), #0,- 
CTXSW_IDEVSIZ(R6), aCTX$L_IBEVMSG(R6) 
10$: DEFAULT_TEST <DEVFLAG/4>, TRANSFER_STATUS, LOGFLAG_TEST 
f<5 orgs pose TRANSFER_STATUS 


ot ie 
selse if D AG defaulted goto LOGFLAG_ 
MCOMB R2, @DEVFLAG(AP) sset DEVFLAG appropriately 


00 20 A7 58 2 
50 B6 = 5A AG 
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B 151 DEFAULT_TEST <FUNC/4>, TRANSFER_STATUS, INDEX_TEST 
151 sif < aris goto TRANSFER_STATUS 
; 4 ! ! selse if FUNC defaulted goto INDEX_TEST 
2 4 ! 13 zstore function from packet into supplied argument 
OC BC OA AZ 9B : 4 ! 1 MOVZBW XFSB_PKT_CMDCTL(R7), @FUNC(AP) 
se 1819 
53¢ 61520 INDEX_TEST: 
53¢ 1 1 DEFAULT_TEST <INDEX/4>, TRANSFER_STATUS, DEVFLAG_TEST 
546 1 : iif < 4 args goto TRANSFER_STATUS 
beee 1 ? selse if INDEX defaulted goto DEVFLAG 
sconvert buffer address in packet to index 
a8 1 5 t buff dd i ket ind 
53 10A7 D 546 15 5 MOVL XFSL_PKT_BFRADR(R7),R3 ; was a data buffer transferred? 
0B 1 Been 1528 BEQL 10$ ; if addr = 0, no 
UBL X$L_DATABLK »R5,R5 ; yes, R3 <= byte offset from base 
53 2CA6 C O54 13 ; SUBL3 CTXS$L_DATABLK(R6) ,R3,R3 es. RS b tf 
; uffer array 
53 4C a6 C6 0551 1531 DIVL2 CTXS$L_BUFSIZ(R6), R3 ;R3 <= index offset from base 
5 D6 0555 15 ¢ INCL R3 zR3 <= index of buffer 
: ° store index 
10 BC 53 B0 0557 15 10$ MOVW R3, @INDEX(AP) ind 
0558 1534 
Bb 1a 
0998 1337 DEVFLAG_TEST: 
0558 1539 ;determine if there is a device message in this packet 
0558 1540 ;R8 contains actual size of device message 
0558 1541 ;The setting of DEVFLAG is a bit convoluted; it stems from the fact 
0558 1366 sthat there are no spare registers left to hold DEVFLAG'S future value 
B228 1367 zand relies on the fact that MOVC5 clears R2. 
52 FF 8F 90 0558 1545 MOVB #TRUE, R2 :R2 is the complement of DEVFLAG 
05 1346 : (assume no device message) 
OE 1¢ A?) 03 =«€1 «05 154 BBC #XFSV_PKT_FREQPK, - jwas this packet taken from the 
05 1548 XFSL_PKT_BSL(R7), - sFREEQ (does it contain 
05 1549 10$ sunsolicited tnpytyt 
05 1329 :if not, goto 10$ 
50 A6 «62S (05 1551 TSTL CTXSL_IDEVMSG(R6) jwas the array to store the 
5 1336 sdevice message given? 
ino, goto 
09 #613 «05 155 BEQL 10$ 10$ 
5 1554 
05 1555 
5 1556 
5 1557 
5 1328 
5 155 
5 1560 
5 1561 
05 1306 
05 156 


146C 52 9% 


== DR32 SUPPORT ROUTINES 
CKE 


16-SEP=1984 01:45:18 YAX/VMS Macro V046-00 p 
XFSGETPKT == GET A PA BSEp- 1984 01 :42:0 CIDR a 


T IOSUP.SRCJDRSUP.MAR; 1 (41) 


1565 
: $8 LOGFLAG_TEST: 
1 rt: sdetermine if there is a log message in this packet 
5 1 § :R10 contains actual size o Log mecsege 
2 ! oY ;the same note on the setting of DEVFLAG applies to LOGFLAG 
52 FF BF 90 Q5 1326 MOVB #TRUE, R2 :R2 is the complement of LOGFLAG 
584 157 ;_(assume no log message) 
OF 1C A? 16 «€1 584 1574 BBC #<XFSV_PKT_DDISTS+XFSV_PKT_LOG>, = zis ‘log msg in” 
589 1575 XFSL_PRT_DSL(R7), = zbit set in the packet? 
283 1376 branch if not 
54 A6 DS 0589 157 TSTL CTXS$L_ILOGMSG(R6) was the array to store the 
Bage 1578 sdevice message given? 
L :no, goto 
OA 13 82 } it t4 4 BEQ 10$ 10$ 
OS8E 138) smove the log eyasege field from the pocket into the array ILOGMSG, 
QS8E 15 ¢ swhich was specified in the call to XFS$SETUP 
43 2 ? :R9 contains packet size of device message 
58 AG) 6002s 20 wee oe 2c B26 1585 MOVCS R10, XFSB_PKT_DEVMSG(R7)CR9], #0, - 
0598 1586 CTX$W_ILOGSIZ(R6), @CTXS$SL_ILOGMSG(R6) 
0598 1587 10$: DEFAULT_TEST <LOGFLAG/4>, TRANSFER_STATUS, TRANSFER STATUS 
Baas 1588 sif LOGFLAG défaulted goto TRANSFER_STAT 
18 BC 52 92 Q5A2 1589 MCOMB R2, @LOGFLAG(AP) ;set LOGFLAG appropriately 
aie 
05A6 1336 ; return the third through the eighth Longword of the command packet 
pene 1333 ; to the user by copying them into CONTXT 
05A6 1595 TRANSFER_STATUS: 
08 A6 O08 AZ 7D O5A6 1596 Move XF$B_PKT_MSGLEN(R7), CTX$L_CONTROL (R6) 
O5AB 1597 igentcel bongverd and byte count 
10 A6 10 A7 7D O5aB 1598 MOVQ $= XFSL_PKT_BFRADR(R7), CTX$L_BFRVA(R6) | 
0580 1599 sbuf addr & residual mem byte count 
18 A6 «618 A? 7D 0580 1600 MOVO = XFSL_PKT_RDBCNT(R7), CTX$L_DDICNT(R6) 
0585 1601 sresidual BDI count and 
0585 1086 ;DR32 status longword 
50 01 3¢€ 0585 160 MOVZWL #SS$_NORMAL, RO success status 
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@ {store ee status of se rrr now (if a status pat orquvent was given), 


sbefore the call to the ACTION routine. 
fi: the ACTION routine. 


GET $s status is an input 


10s 0$ 
Os tus defaulted goto 10$ 
. pAb hd Siete status 


mo 
woo 


arateg size of pa 


zif no packet, goto end 


h log message field 
ce message 
IRI contains packet size of log message field 


XF$B_PKT_DEVMSG(R9)CR11], R3 


contains packet s 


3R3 <= devmsg sizetlo size 
; + size of fixed par kt 
:(this is an ADDL, not ; MOVA) 


++ 
31F an ACTION routine is associated with this packet 


: ca 
zthe ACTION routine may substitute its status for GETPKT's status 


#XFSV_PKT_ACTBIT, XF$B PRT PRTC Tu ERY) RETURN_SPACE 


bit is clear, there is no 
;ACTION routine associated with 
ithis packet 


iR3 contains the size of the packet in bytes, up te and ae the 

dd this to the base address of the packet to find 
sthe addresses of the ACTION routine and the ACTION 
Then add the size of she two addresses to R3, to 
calculate the total size of the command packet 


: log message field. 
troutine's parameter. 


z input arguments to 


oo--o0 


Se EOOO-F 
> 
PAEAEAAAAAAAAAA AA AAA AAAASAA AAA AAAAAAAAAAAAAAAAAOAAOASOASOAAAO 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


3R4 <= addr of addr of ACTION 
troutine 
3R3 <- total size of packet 


zaddr of ACTION routine param 


peat’ ,user~suppt ted ACTION 
routine 
‘status returned in STATUS arg 
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F3 1660 i++ 
: ft return the memory the command packet was built from 
F 186 RETURN. SPACE: 
SF3 1664 zinputs to XFSSDEALOCPKT: 
51 SC AG DE OSFS 1665 MOVAL CTXSL_FREELIST(R6), R1 :R1: addr of freelist header 
5F 1666 3R3: size of packet in bytes 
OSF7 1667 iR7: addr of packet to return 
FOD8 30 OSF7 1668 BSBW XFSSDEALOCPKT sreyurn the packet space 
SFA 166? 3(R1, R3, R7 are destroyed) 
SFA 1670 
SFA 1671 END_GETPKT: 
SFA 1 i RET 
OSFB 167 
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PACKET ADDRESS SEP-1984 01:32:02 CIOSUP.SRCJDRSUP.MAR; 1 (44) 
? .SBTTL GET_ADDR == GET PACKET ADDRESS 
: FUNCTIONAL DESCRIPTION: 


This routine is called by XFSGETPKT to remove a packet from the 

TERMQ and return its address. The routine, depending on 

conditions, 

(1) returns with address of packet, or 

it returns with status ‘‘TERMQ empty’, or 

(3) determines that this data transaction has completed, and 
calls XFSCLEANUP before returning 


; CALLING SEQUENCE: | 
BSBB/W GET_ADDR | 
called by: XFSGETPKT 
calls (under conditions) XFSCLEANUP | 
; INPUT PARAMETERS: 
R2 is a switch that determines what action to take when 
TERMQ is gmpty 
R2 = Q: wait for event flag | 
: R2 .NE. 0: immediate return with ‘‘TERMQ empty'’ status 
IMPLICIT INPUTS: 
R6 contains the address of the CONTXT array 
fields in CONTXT: 
CTX$L_CMDBLK 
CTX$Q_10SB 
CTXSW_EFN 
OUTPUT PARAMETERS: 


R7 contains address of command packet, if one was successfully 
removed from the TERMQ 


IMPLICIT OUTPUTS: 
NONE 


SOOOCOCOOCOOOOOSCOCOCOOOCOCOOOCOOOOOOOOOOOQOODOOOODOOo 
Ab db— db dba bd—d buddha d-dh db Ab db Ab db db db db ab db db db hh db db hb dh dh db dab db dsb dh dah dh cb dh dh del 
i i id i eid i Di Di i Di Bi Di Re Di ee Di Re Be Be Bi Be De De Be ee Be Bs Be Bee ee Be Be Be | 
besdostesdoctesdestostesdestesdestesteslesteslesTes[eslestesleslestesTestesteslectes[esTesleclestesleslesteclesTestestes]es] 
a kk kk kk tk ts a 
SNA AA AOOOOAOAOOOAAOOOAOOOOSOOOAS HO 
3 = $$ “OOO DQOOOCOSCO OOOO OOOOOODWDWDDOWDDOOO YY YN mp 
ME WIN — O OONA UE WN 0 OD NOAM EWN SO ODNOU EWN OOOnNOU -- 


XFSORS == DR32_ SUPP 
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ROUTINES 1erse 
GET_ADDR == SE 


PACKET ADDRESS 
COMPLETION CODES: 


RO contains status of call 
status returns: 
SSS$_NORMAL: normal successful gong lotion 
pecnes address is in 
$S$_BADQUEUVEHDR: interlocked queue timeout 
SHRS_HALTED: XFSCLEANUP was called 
SHR$_QEMPTY: no packet, but transfer still goin 
SHR$_NOCMDMEM: command memory not allocated at 
the time this routine was called 
error returns from system calls 


LIBSFREE_VM 
LIBSDASSGN 


SIDE EFFECTS: 
If XFSCLEANUP was called (it is called when the TERMQ is empty 


and the transfer is halted), then the command area was 
deallocated and the device's channel deassigned. 
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waa lesb vabvab ab alvabealvalvalvalealealealealtalvalvalealeareg 
Se ie i Dn Be De De Be De Bs ee Re i Be Be Bs Be i | 
pooBocKecdoctosToclostosToslosleclosteclesTosTocTosloslesTestesos]ee] 
ts i 8 ss a ts a a et i tt 
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polo loleloeleoleleleleololola) 


| mM 6 
KF SORSUP == DR32_ SUPP ROUTINES 16-SEP-1984 01:45:1 AX/VMS Ma v04-00 P 41 | 
yOe-000 GET_ADDR == PACKET ADDRESS 8736 p=1 982 81:43:08 LTOSUP. SRE DRSUP.MAR; 1 “ie (46) 


GET_ADDR: 
PUSHR #*M<R1,R2,R10> 
MOVL  CTXS$L_CMDBLK(R6), R10  ;R10 <= addr of command block 
BEQL CLEANOP_DONE :if 0, command area has been 
tdeallocated 


0406 8F 6B 
SA Bt A 


13 


;++ 

sattempt to remove packet from head of TERM queue 

;if succeed in poy den ° packet then goto HAVE_PACKET 
miz 


RT 
ET 
4] 
z§ 
44 
tz 
¢} 
5 there is a packet on the TERMQ and partly a test 
f 
5 
58 
59 
60 
e 


0 
G 
SFB 17 
2fe 17 
ae 
6 17 
6 17 
6 17 
6 17 
605 17 
88 3 this i tl t tion t leari h fl h 
this is partly an otp ation to prevent clearing the event flag when 
605 17 F Po see if CLEANUP can 
O82 1752 ;be done . 
6 1755 ;-- 
0605 1754 REM_TERMQ: 
51 D4 et 17 CLRL R1 retry count 
57 08 AA 5E 0607 1756 108: REMQHI CMDSL_TERMQ(R10), R7 3R7 <= addr of packet 
69 1C 0608 17 BVC HAVE _PACKET iremoval succeeded 
OA if 060D 17 BCC 2 ;TERMQ empty 
FO 51 Q0000C350 BF F pout 17 AOBLEQ #RETRY_LIMIT, R1, 108  ;queue locked. retry. 
0617 1761 ;exceeded retry Limit and queue is still locked 
bel! 176 assume queue can no Longer be valid 
56 11 0617 1764 BRB QUEUE _ERROR 
0619 1765 
0619 1766 ;++ 
0619 1767 ;there is no packet on the TERMQ; if in addition the transfer is 
+34 1768 shalted, then clean up. 
66 BS 0619 1770 20$: TSTW  CTX$Q_I0SB(R6) test status of transfer 
38 812 0618 1771 BNEQ CLEANOP zbr if transfer halted 
061D ae; 
061D 1773 ;++ 
061D 1774 ;come here if there is no packet on the TERMQ but the transfer is still 
061D 1775 igoing. Test R2 to determine whether to immediately return with 
Bo18 1208 TERMQ empty’’ status or whether to wait for the event flag to be set. 
52. 95 «4061D = 1778 TSTB R2 swait for event flag? 
5A 12 OQ61F 1779 BNEQ TERMQ_EMPTY ino, immediate return 
0621 1780 ;++ 
0621 1781 ;come here to wait for an event flag to be set before 
bes! 1786 jre-attempting to remove an entry from the TERM queue 
dee 1788 WAIT_FOR_EF: 
52 42 A6 3C 0621 1785 MOVZWL CTX$W_EFN(R6), R2 get event flag number 
0625 1786 SCLREF_S EFN = R2 clear event flao 
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51 4 06 17 CLRL R1 iretry count 
57 08 AA E ? 5 1785 10$: REMQHI CMDS$L_TERMQ(R10), R7 R? ye addr of packet 
a8 it ? 4 1f29 avs HAVE _PACKET iremoval succeeded 
em 
FO 51 0000C350 gf ‘§ £38 1736 AOBLEQ #RETRY_LIMIT, R1, 10$ ;queue locked. retry. 
640 1794 ;exceeded retry Limit and queue is still locked 
ti 129? assume queue can ne Longer be valid 
002C 31 oe 1732 BRW QUEUE_ERROR 
66 =««BS o¢ 1799 208: TSTW erase IOSB(R6) shas transfer halted? 
OE 12 pee 1300 BNEQ CLEANOP zyes, go clean up 
0647 1 8 SWAITFR -§ EFN = R2 wait for flag to be set 
B2 50 £8 $639 180 BLBS REM_TERMQ ire-attempt a packet 
2B «611 «0653 1804 BRB Eu _GET_ADDR 3RO contains error status from 
0655 1805 SWAITFR call 
0655 1308 3++ ’ 
et 44 zCome here iff there is nothing on TERMQ and transfer is halted. 
0655 1809 CLEANUP: 
56 DD 0655 1810 PUSHL RG zsaddr of CONTXT array 
00000685"EF 01 FB 0657 1811 CALLS #1, XFSCLEANUP 3(1) deallocates command area 
065E 1el¢ 3(2) deassigns channel 
1F 50 §? O65E 181 BLBC rs END_GET_ADDR 
50 1270 8F C 0661 1814 MOVZWL #SHR$_HALTEB, RO stransfer JUST halted 
18 11 0666 1815 SRB END RSET _ADDR 
0668 1816 
0668 1817 
0668 1818 ;status paths 
0668 + a 
0668 1 $9 CLEANUP_DONE : | 
50 1278 8F 3C 0668 1821 MOVZWL #SHRS_NOCMDMEM, RO ;command area deallocated | 
11 11 066D 1356 BRB END _GET T_ADDR 
O66F 182 
066F 1824 QUEUE_ERROR: | 
50 0394 8F 3C O66F \3 5 MOVZWL #SS$ PACOUE ENGR. RO sinterlock timeout occurred 
OA 11 0674 1826 END_GET 
0676 1827 
676 1828 HAVE_PACKET: she 
50 01 3C€ 0676 1829 MOVZWL #SS$_NORMAL spacket's address is in R7 
05 11 0679 1830 BRB END_GET RADDR 
0678 1 3 
0678 1 § TERMQ_EMPTY: 
50 1280 8F 3C sth 4 : 3 MOVZWL #SHRS_QEMPTY, RO no packet on TERMQ 
0680 1835 END_GET_ADDR: 
0680 1 3 
0406 8F BA 0680 1837 POPR #*M<R1,R2,R10> 
05 0684 1838 RSB 
0685 1839 


00000008 
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++ 
FUNCTIONAL DESCRIPTION: 


(1) deassign channel 
(2) deallocate virtual memory 


; CALLING SEQUENCE: 


CALLS/G XFSCLEANUP(CONTXT, CSTATUS]) 


INPUT PARAMETERS: 


CONTXT = 4 
IMPLICIT INPUTS: 
fields in CONTXT array: 
CTX$L_CMDBLK 
CTXSL_CMDSIZ 


OUTPUT PARAMETERS: 


STATUS = 8 soptional status word 


IMPLICIT OUTPUTS: 


RO contains status also (used when XFSGETPKT calls XFSCLEANUP) 


COMPLETION CODES: 


SS$_NORMAL =-- successful completion 
SHRS_NOCMDMEM <== command memory was not allocated at the time 
of this call to XFSCLEANUP 


error returns from: 
LIBSFREE_VM 
SDASSGN 


SIDE EFFECTS: 
NONE 
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“M<R2,R6> 


3R6 <= addr of CONTXT 
assume cmd memory not allocated 


zis address non-zero 
tbranch if cmd mem tt allocated 


schannel number still in FAB 


FABSL_STV(R2) 


sdeassign the channel 
serror from $DASSGN 


saddress of virtual 7 
ssize of virtual memory block 
sreturn the memory 

serror return 

isignal command mem returned 


<STATUS/4>, END_CLEANUP, END CLEANUP 


“RO, @STATUS(AP) ;store status of calT 


32 
EANUP 
6 1885 
! § eENTRY XFSCLEANUP 
. : 8 MOVL CONTXT(CAP), R6 
6 189 MOVZWL #SHRS_NOCMDMEM, RO 
690 189 TSTL = CTXSLZCMDBLK (RO) 
23 : 35 BEQL 10$ 
4 : 3¢ ideassign channel (also cancels any I0 still in progress) 
695 1 98 MOVAL DEVICE_FAB 
69¢ 44 SDASSGN_S CHAN'S 
peat : + BLBC RO, 108 
ie 1303 sdeallocate dynamic virtual memory 
6AA 1308 PUSHAL CTXS$L_CMDBLK(R6) 
O6AD 1904 PUSHAL CTX$L~ gc MDSIZ (RO) 
R88 1905 CALLS #2, G*LIBSFREE VM 
0687 1906 BLBC RO, 10$ 
O6BA 1907 CLRL = CTXSL_CMDBLK(R6) 
Rees 1399 see if STATUS argument supplied 
QO6BD 1911 108: DEFAULT_TEST 
TS eee 
06CB 1914 END_CLEANUP: 
06(B 1915 RET 
O6CC 1916 
06cc 1917 END 
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Symbol table 


IDEVS1Z 
ILOGMSG 
ILOGSI2Z 
IMMEDIATE_EXIT 
INDEX 

INDEX FIELD 


INTCTR 
INT_DEF AULT 
INV 
INVALID_ARG 
LIBSFREE_VM 
LIBSGET_0m 
LOGF LAG 
LOGFLAG_TEST 
LOGSIZ 
LOGSIZE 
MODES 
MODES_DEF AULT 
MODES" FIELD 
EST 
MSG_ARRAYS 


PAGEMASK 
PKTAST 
PKTAST_TEST 
PRE_AST 
QUABWORD_MASK 
QUEUE _ERROR 

Q FAICURE 
REM_TERMOQ 
RETRY LIMIT 
RE TURA SPACE 


SYSSDASSGN 
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PSECT name Allocation PSECT No. Attributes 


. ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000060 ( 96.) 01 ¢ -) NOPIC USR CON ABS LCL NOSHR’ EXE RD WRT NOVEC BYTE 
_XF SCODE O00006CC ( 1740.) 02 ¢ af PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC BYTE 
“XFSDATA 00000050 «¢ 80.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
eames er rns Cen De Ee Oe eecce | 
! Performance indicators ! 
per e soe ene eee ee ae oon | 
Phase Page faults CPU Time Elapsed Time | 
Initialization 34 00:00:00.10 00:00:00.52 
Command processing 157 Bo #88 08-28 ee 
Pass 1 396 00:00:15.45 00:00: | -$3 
Symbol table sort 9 OF aD BE Lo 00:00:04.31 
Pass 2 32 0:00:04.87 00:00:09.06 
Symbol table output e7 ba 9 OF 3 00:00:01.01 
Psect synopsis output 2 00:00:00.0 00:00:00.03 
Cross-reference output 0 es 64 00:00:00.00 
Assembler run totals 945 00:00:23.3 00:00:48.15 


The working set Limit was 1950 pages. 

90665 bytes (178 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 80 pages of symbol table space allocated to hold 1377 non-local and 33 local symbols. 
7 source Lines were read in Pass 1, orogye Se 31 object records in Pass 2. 

34 pages of virtual memory were used to define 29 macros. 


Macro Library name Macros defined 


_$255$DUA28: CIOSUP.SRCJORDEF .MLB; 1 3 
$255$DUA28: (SYSLIBJSTARLET.MLB; 2 
TOTALS (all Libraries) 4 


1597 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/DISABLE=TRACE/LIS=LIS$:DRSUP/OBJ=0BJ$:DRSUP MSRC$:DRSUP/UPDATE=(ENHS$:DRSUP) +SRC$:DRDEF/LIB 
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